home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XMOVEBLK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  273 b   |  19 lines
  1. {$Ibodecl}
  2. {$IMoveBlk}
  3. {$IPutStr}
  4. {$ICopies}
  5. {$IBoxul}
  6.  
  7. BEGIN
  8.  
  9.    ClrScr;
  10.    BoxUl ( 1,1, 8, 7,3,14);
  11.    BoxUl ( 10,1,17, 7,3,14);
  12.    BoxUl ( 19,1,26, 7,3,14);
  13.    PutStr (h,'Press enter to move boxes',1,9,14);
  14.    read;
  15.    MoveBlk (1,1,26,7,1,12);
  16.  
  17. END.
  18.  
  19.